object Form1: TForm1 Left = 252 Top = 163 Hint = 'Click right mouse-button for menu' BorderIcons = [] BorderStyle = bsNone Caption = 'Form1' ClientHeight = 70 ClientWidth = 240 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PopupMenu = PopupMenu1 ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 4 Top = 4 Width = 57 Height = 11 Caption = 'Memory load:' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Left = 4 Top = 20 Width = 37 Height = 11 Caption = 'Physical:' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Label3: TLabel Left = 4 Top = 36 Width = 28 Height = 11 Caption = 'Virtual:' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Label4: TLabel Left = 4 Top = 52 Width = 36 Height = 11 Caption = 'Swapfile:' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Shape1: TShape Left = 3 Top = 16 Width = 233 Height = 2 Brush.Color = clLime Pen.Color = clFuchsia Pen.Style = psClear Pen.Width = 0 end object Shape2: TShape Left = 3 Top = 32 Width = 233 Height = 2 Brush.Color = clLime Pen.Style = psClear Pen.Width = 0 end object Shape3: TShape Left = 3 Top = 48 Width = 233 Height = 2 Brush.Color = clLime Pen.Style = psClear end object Shape4: TShape Left = 3 Top = 64 Width = 233 Height = 2 Brush.Color = clLime Pen.Style = psClear end object loadMeter: TShape Left = 3 Top = 16 Width = 110 Height = 2 Brush.Color = clRed Pen.Style = psClear Pen.Width = 0 end object physMeter: TShape Left = 3 Top = 32 Width = 110 Height = 2 Brush.Color = clRed Pen.Style = psClear Pen.Width = 0 end object virtMeter: TShape Left = 3 Top = 48 Width = 110 Height = 2 Brush.Color = clRed Pen.Style = psClear end object swapMeter: TShape Left = 3 Top = 64 Width = 110 Height = 2 Brush.Color = clRed Pen.Style = psClear end object loadLabel: TLabel Left = 216 Top = 4 Width = 19 Height = 11 Alignment = taRightJustify Caption = '0' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object physLabel: TLabel Left = 216 Top = 20 Width = 19 Height = 11 Alignment = taRightJustify Caption = '0' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object virtLabel: TLabel Left = 216 Top = 36 Width = 19 Height = 11 Alignment = taRightJustify Caption = '0' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object swapLabel: TLabel Left = 216 Top = 52 Width = 19 Height = 11 Alignment = taRightJustify Caption = '0' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -9 Font.Name = 'Small Fonts' Font.Pitch = fpVariable Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object PopupMenu1: TPopupMenu Left = 68 Top = 32 object stayOnTop: TMenuItem Caption = 'Always on top' ShortCut = 0 OnClick = stayOnTopClick end object Stayblack: TMenuItem Caption = 'Always dark' ShortCut = 0 OnClick = StayblackClick end object Mark1: TMenuItem Caption = 'Mark now!' ShortCut = 0 OnClick = Mark1Click end object Compare1: TMenuItem Caption = 'Compare now!' ShortCut = 0 OnClick = Compare1Click end object About1: TMenuItem Caption = 'About' ShortCut = 0 OnClick = About1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit: TMenuItem Caption = 'Exit' ShortCut = 0 OnClick = ExitClick end end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 128 Top = 32 end end